<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_bolonha Dim rs_bolonha_numRows Set rs_bolonha = Server.CreateObject("ADODB.Recordset") rs_bolonha.ActiveConnection = MM_cc_STRING rs_bolonha.Source = "SELECT * FROM carloscoelho.dossier_turquia ORDER BY numero ASC" rs_bolonha.CursorType = 0 rs_bolonha.CursorLocation = 2 rs_bolonha.LockType = 1 rs_bolonha.Open() rs_bolonha_numRows = 0 %> <% Dim rs_ver_bolonha__MMColParam rs_ver_bolonha__MMColParam = "1" If (Request.QueryString("turquia") <> "") Then rs_ver_bolonha__MMColParam = Request.QueryString("turquia") End If rs_ver_bolonha__MMColParam = check_var(rs_ver_bolonha__MMColParam,"int") %> <% Dim rs_ver_bolonha Dim rs_ver_bolonha_numRows Set rs_ver_bolonha = Server.CreateObject("ADODB.Recordset") rs_ver_bolonha.ActiveConnection = MM_cc_STRING rs_ver_bolonha.Source = "SELECT * FROM carloscoelho.dossier_turquia WHERE id = " + Replace(rs_ver_bolonha__MMColParam, "'", "''") + "" rs_ver_bolonha.CursorType = 0 rs_ver_bolonha.CursorLocation = 2 rs_ver_bolonha.LockType = 1 rs_ver_bolonha.Open() rs_ver_bolonha_numRows = 0 %> <% titulo = titulo & " - " & gettitulo(submenu) %> <%=titulo%>
/dossiers/turquia/turquia.jpg&width=125" border="0" class="imgcborder" />
A Turquia e a UE
 
A Turquia e a UE
 
<%=(rs_ver_bolonha.Fields.Item("pergunta").Value)%>
 
<%=replace(rs_ver_bolonha.Fields.Item("resposta").Value,"
 
 
Índice
 
<% while not rs_bolonha.eof %> "><%=(rs_bolonha.Fields.Item("pergunta").Value)%>

<% rs_bolonha.movenext wend %>
 
 
     
<% rs_bolonha.Close() Set rs_bolonha = Nothing %> <% rs_ver_bolonha.Close() Set rs_ver_bolonha = Nothing %>